home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmodmous.arc / QMODEMU.DEF < prev    next >
Text File  |  1986-03-06  |  11KB  |  292 lines
  1. ;
  2. ;
  3. ;       ╔═══════════════════════════════════╗
  4. ;       ║    QMODEM Pop-Up Menus            ║
  5. ;       ║                                   ║
  6. ;       ║ Designed for use with Qmodem V2.0 ║
  7. ;       ║         Mark F. Lewis             ║
  8. ;       ║         06-MAR-86                 ║
  9. ;       ║                                   ║
  10. ;       ║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║
  11. ;       ║ This is the unexpanded version    ║
  12. ;       ║         QMODEMU.DEF               ║
  13. ;       ║ Compile with Microsoft's MAKEMENU ║
  14. ;       ║ To use, type:                     ║
  15. ;       ║      MENU QMODEMU                 ║
  16. ;       ║      QMODEM                       ║
  17. ;       ║      MENU OFF                     ║
  18. ;       ║  or place the above in a BAT file ║
  19. ;       ║                                   ║
  20. ;       ╚═══════════════════════════════════╝
  21. ;
  22. ;       Set up initial labels for mouse commands
  23.  
  24.         begin leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
  25.  
  26. ;       -------------------- Left Button ---------------------------
  27.  
  28. ;       Start QModem if in init mode, else Main menu menu
  29.  
  30. leftb:  match 25,15,,"Qmodem",Keyspc,redlchk    ;Check for initing
  31. redlchk: match 4,9,,"Re-Dial",dialmen,vchkl     ;check for redial
  32. vchkl:   match 5,5,,"Filename",keyspc,vchkn    ;check for viewdir
  33. vchkn:   match 2,6,,"View a file",keyspc,menu1     ;Check for viewdir
  34.  
  35.  
  36. ;       --------------------- Both buttons ------------------------
  37.  
  38. ;       Context-contingent cancel
  39.  
  40. bothb:  match 25,15,,"Qmodem",nothing,chkbth
  41. chkbth: match 1,28,,"Command",return,chkpbookb
  42. chkpbookb: match 1,12,,"Phone",keyx,keyesc        :check for Phone Book
  43.  
  44. ;       -------------------- Mouse left -----------------------
  45.  
  46. mousel: match 1,3,,"Strip / Convert",left,nothing  ;check for xlate table
  47.  
  48. ;       ------------------- Mouse right -----------------------
  49.  
  50. mouser: match 1,3,,"Strip / Convert",right,nothing  ;check for xlate table
  51.  
  52. ;       --------------------- Mouse up -----------------------
  53.  
  54. mouseu: match 25,6,,"PgUp",Pgup,chkpbooku       ;check for scroll back
  55. chkpbooku: match 1,12,,"Phone",Pgup,stripcku      :check for Phone Book
  56. stripcku: match 1,3,,"Strip / Convert",Up,nothing  ;check for xlate table
  57.  
  58. ;       ------------------- Mouse down -----------------------
  59.  
  60. moused: match 25,6,,"PgUp",PgDn,chkpbookd       ;check for scroll back
  61. chkpbookd: match 1,12,,"Phone",PgDn,stripckd      ;check for Phone book
  62. stripckd: match 1,3,,"Strip / Convert",down,nothing  ;check for xlate table
  63.  
  64. ;       Initial menu displayed when left button pressed
  65.  
  66. menu1:  popup 1,24,bold
  67.         text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
  68.         text "║                 --- Primary ---                       ║"
  69.         text "║ Clear Screen                Redial Last Number        ║"
  70.         text "║ Dial Phone                  DOS Shell                 ║"
  71.         text "║ SCRIPT Execution            Disk Directory            ║"
  72.         text "║ Hang-Up Modem               Exit Qmodem               ║"
  73.         text "║ Change Baud Rates           Secondary Menu            ║"
  74.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
  75.         text "║ Download files              Toggles Menu              ║"
  76.         text "║ Upload Files                Capture File Toggle       ║"
  77.         text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
  78.         text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
  79.         text "║ Cancel Menu                                           ║"
  80.         text "║                                                       ║"
  81.         text "║    Select menu item with Right Button                 ║"
  82.         text "║    Press Left button or Both Buttons to return        ║"
  83.         text "╚═══════════════════════════════════════════════════════╝"
  84.         select 3,3,23,keyaltc
  85.         select 4,3,23,keydial
  86.         select 5,3,23,keyaltf
  87.         select 6,3,23,keyalth
  88.         select 7,3,23,keyaltp
  89. ;
  90.         select 3,31,23,keyaltq
  91.         select 4,31,23,setdos
  92.         select 5,31,23,keyaltw
  93.         select 6,31,23,exitact
  94.         select 7,31,23,menu2
  95. ;
  96.         select 9,3,23,pgdn
  97.         select 10,3,23,pgup
  98.         select 11,3,23,Up
  99.         select 12,3,23,shfttab
  100.         select 13,2,22
  101. ;
  102.         select 9,31,23,menu3
  103.         select 10,31,23,keycthm
  104.         select 11,31,23,keyctnd
  105.         select 12,31,23,keyctpt
  106.         pend
  107. ;
  108. setdos:  execute keyaltr,shellset
  109. shellset:  assign shelb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
  110. shelb: popup 1,1,bold
  111.         text "╔═[ DOS Shell ]════╗"
  112.         text "║ Return to Qmodem ║"
  113.         text "║   Cancel Menu    ║"
  114.         text "╚══════════════════╝"
  115.         select 2,2,18,retshell
  116.         select 3,2,18
  117.         pend
  118. ;
  119. retshell: execute shellout,return,noshell
  120. noshell:  assign leftb,mousehlp,bothb,mousel,mouser,mouseu,moused,16,24
  121. ;
  122. menu2:  popup 1,24,bold
  123.         text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
  124.         text "║                 -- Secondary --                       ║"
  125.         text "║ Translate Table             Change Sub-Dirs           ║"
  126.         text "║ Function Key Set            View a File               ║"
  127.         text "║ Log Drive Change            Delete a File             ║"
  128.         text "║                                                       ║"
  129.         text "║                             Primary Menu              ║"
  130.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
  131.         text "║ Download files              Toggles Menu              ║"
  132.         text "║ Upload Files                Capture File Toggle       ║"
  133.         text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
  134.         text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
  135.         text "║ Cancel Menu                                           ║"
  136.         text "║                                                       ║"
  137.         text "║    Select menu item with Right Button                 ║"
  138.         text "║    Press Left button or Both Buttons to return        ║"
  139.         text "╚═══════════════════════════════════════════════════════╝"
  140.         select 3,3,23,keyalta
  141.         select 4,3,23,keyaltj
  142.         select 5,3,23,keyaltl
  143. ;
  144.         select 3,31,23,keyalto
  145.         select 4,31,23,keyaltv
  146.         select 5,31,23,keyalty
  147.         select 7,31,23,menu1
  148. ;
  149.         select 9,3,23,pgdn
  150.         select 10,3,23,pgup
  151.         select 11,3,23,Up
  152.         select 12,3,23,shfttab
  153.         select 13,2,22
  154. ;
  155.         select 9,31,23,menu3
  156.         select 10,31,23,keycthm
  157.         select 11,31,23,keyctnd
  158.         select 12,31,23,keyctpt
  159.         pend
  160.  
  161. menu3:  popup 1,24,bold
  162.         text "╔═[ Command Menu 2.0 ]══════════════════════════════════╗"
  163.         text "║                 --- Toggles ---                       ║"
  164.         text "║ Beeps and Bells             ANSI Music Mode           ║"
  165.         text "║ Echo                        Split Screen Mode         ║"
  166.         text "║ ANSI Graphics Mode          Screen Dump               ║"
  167.         text "║ Program Info                Xon / Xoff                ║"
  168.         text "║                             Secondary Menu            ║"
  169.         text "║-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-║"
  170.         text "║ Download files              Primary Menu              ║"
  171.         text "║ Upload Files                Capture File Toggle       ║"
  172.         text "║ Scroll Lost lines Back      Send modem BREAK Signal   ║"
  173.         text "║ Add Linefeed Toggle         Printer echo Toggle       ║"
  174.         text "║ Cancel Menu                                           ║"
  175.         text "║                                                       ║"
  176.         text "║    Select menu item with Right Button                 ║"
  177.         text "║    Press Left button or Both Buttons to return        ║"
  178.         text "╚═══════════════════════════════════════════════════════╝"
  179.         select 3,3,23,keyaltb
  180.         select 4,3,23,keyalte
  181.         select 5,3,23,keyaltg
  182.         select 6,3,23,keyalti
  183. ;
  184.         select 3,31,23,keyaltm
  185.         select 4,31,23,keyalts
  186.         select 5,31,23,keyaltt
  187.         select 6,31,23,keyaltz
  188.         select 7,31,23,menu2
  189. ;
  190.         select 9,3,23,pgdn
  191.         select 10,3,23,pgup
  192.         select 11,3,23,Up
  193.         select 12,3,23,shfttab
  194.         select 13,2,22
  195. ;
  196.         select 9,31,23,menu1
  197.         select 10,31,23,keycthm
  198.         select 11,31,23,keyctnd
  199.         select 12,31,23,keyctpt
  200.         pend
  201.  
  202. exitact: execute keyaltx,exitmen
  203.  
  204. exitmen: popup 6,20,bold
  205.         text "╔═[ Leave Qmodem ]════════════╗"
  206.         text "║      Are you SURE?          ║"
  207.         text "║                             ║"
  208.         text "║         Yes                 ║"
  209.         text "║         No                  ║"
  210.         text "║  Exit with modem connected  ║"
  211.         text "╚═════════════════════════════╝"
  212.         select 4,3,27,Keyy
  213.         select 5,3,27,Keyn
  214.         select 6,3,27,keyx
  215.         pend
  216.  
  217. dialmen: popup 12,8,bold
  218.         text "╔═[ Re-Dial Action ]══╗"
  219.         text "║     Cycle Call      ║"
  220.         text "║     Delete Call     ║"
  221.         text "║        Abort        ║"
  222.         text "║     Cancel Menu     ║"
  223.         text "╚═════════════════════╝"
  224.         select 2,2,21,Keyc
  225.         select 3,2,21,keyd
  226.         select 4,2,21,keyesc
  227.         select 5,2,21
  228.         pend
  229.  
  230. ;       Mouse help
  231.  
  232. mousehlp: popup 2,1
  233.         text "╔════════════════ MOUSE  HELP ══════════════════╗"
  234.         text "║                                               ║"
  235.         text "║ Left button  - Displays Main menu             ║"
  236.         text "║ Right button - Displays Mouse Help menu       ║"
  237.         text "║ Both buttons - Cancels action-in-progress     ║"
  238.         text "║                                               ║"
  239.         text "║ Moving the mouse up,down,left, or right will  ║"
  240.         text "║ cause the cursor to move in that direction.   ║"
  241.         text "║                                               ║"
  242.         text "╚═══════════════════════════════════════════════╝"
  243.         select 1,19,11
  244.         pend
  245. ;
  246. ;               --- Key Commands ---
  247. shellout: TYPE "EXIT"
  248. keyc:     Type "C"                      ;C
  249. keyd:     Type "D"                      ;D
  250. keyx:     type "X"                      ;X
  251. keyy:     type "Y"                      ;Y
  252. keyn:     type "N"                      ;N
  253. keyesc: type 27                         ;Escape
  254. keyspc: type " "                        ;Space
  255. keyaltc: type 0,46
  256. keydial: type 0,32,13
  257. keyaltf: Type 0,33
  258. keyalth: type 0,35
  259. keyaltp: type 0,25
  260. keyaltq: type 0,16
  261. keyaltr: type 0,19
  262. keyaltw: type 0,17
  263. keyaltx: type 0,45
  264. shfttab: type 0,15
  265. keyalta: type 0,30
  266. keyaltj: type 0,36
  267. keyaltl: type 0,38
  268. keyalto: type 0,24
  269. keyaltv: type 0,47
  270. keyalty: type 0,21
  271. keyaltb: type 0,48
  272. keyalte: type 0,18
  273. keyaltg: type 0,34
  274. keyalti: type 0,23
  275. keyaltm: type 0,50
  276. keyalts: type 0,31
  277. keyaltt: type 0,20
  278. keyaltz: type 0,44
  279. keyctnd: type 0,117
  280. keyctpt: type 0,114
  281.  
  282. NOTHING:        NOTHING
  283.  
  284. RETURN:        TYPE 13                 ;Return
  285. PGUP:          TYPE 0,73
  286. PGDN:          TYPE 0,81
  287. LEFT:          TYPE 0,75
  288. RIGHT:         TYPE 0,77
  289. UP:            TYPE 0,72
  290. DOWN:          TYPE 0,80
  291. keycthm: type 0,119
  292.